home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE12 / CLINIC / CARSU1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-05-11  |  611 b   |  42 lines
  1. unit Carsu1;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     procedure FormCreate(Sender: TObject);
  12.   private
  13.     { Private declarations }
  14.   public
  15.     { Public declarations }
  16.   end;
  17.  
  18. var
  19.   Form1: TForm1;
  20.  
  21. implementation
  22.  
  23. uses
  24.   CarsU2;
  25.  
  26. {$R *.DFM}
  27.  
  28. procedure TForm1.FormCreate(Sender: TObject);
  29. var
  30.   Cars: array[1..2] of TCar;
  31. begin
  32.   Cars[1] := TCar.Create;
  33.   Cars[2] := TRacingCar.Create;
  34.   Cars[1].Drive;
  35.   Cars[2].Drive;
  36.   Cars[1].Free;
  37.   Cars[2].Free;
  38.   Halt;
  39. end;
  40.  
  41. end.
  42.